perm filename NSEE.F4[CMS,LCS]1 blob sn#086995 filedate 1974-02-10 generic text, type T, neo UTF8
00100		DIMENSION LL(1),II(1000)
00200		COMMON LL,II
00300	1	TYPE 5
00400	5	FORMAT(' TYPE:<CR>;TO DRAW NEW PICTURE.'/
00500		1' OR TYPE IN NAME TO USE OLD PICTURE.'/)
00600		ACCEPT 3,NAM
00700	3	FORMAT(A5)
00800	   	CALL ISEE(NAM)
00900		GO TO 1
01000		END